home *** CD-ROM | disk | FTP | other *** search
/ PC Graphics Unleashed / PC Graphics Unleashed.iso / ch18 / rad386 / torad.dcl < prev    next >
Encoding:
Text File  |  1993-07-15  |  5.0 KB  |  225 lines
  1. // ***************************************************************************
  2. //        torad.dcl
  3. //
  4. //        This file is part of the program torad.lsp to export
  5. //        RADIANCE scene description files from Autocad.
  6. //
  7. //        Copyright (C) 1993 by Georg Mischler / Lehrstuhl
  8. //                              fuer Bauphysik ETH Zurich.
  9. //
  10. //        Permission to use, copy, modify, and distribute this software
  11. //        for any purpose and without fee is hereby granted, provided
  12. //        that the above copyright notice appears in all copies and that
  13. //        both that copyright notice and this permission notice appear in
  14. //        all supporting documentation.
  15. //
  16. //        THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
  17. //        WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
  18. //        PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
  19. //
  20. //        Acknowlegdements:
  21. //        Final developement of this program has been sponsored by Prof. Dr.
  22. //        B. Keller, Building Physics, Dep. for Architekture ETH Zurich.
  23. //        The developement environment has been provided by Prof. Dr.
  24. //        G. Schmitt, Architecture & CAAD ETH Zurich.
  25. //
  26. // ***************************************************************************
  27.  
  28.  
  29.  
  30. dcl_settings : default_dcl_settings { audit_level = 0; }
  31.  
  32. radiance : dialog {
  33.     label = "torad - radiance export facility";
  34.     : column {
  35.         : row {
  36.             : boxed_column {
  37.                 label  = "sampled entities:";
  38.                 key    = "filelist";
  39.                 : toggle {
  40.                     label = "Planarized faces of 3DFACEs";
  41.                     key   = "3DFACE";
  42.                 }
  43.                 : toggle {
  44.                     label = "Extruded and flat TRACEs";
  45.                     key   = "TRACE";
  46.                 }
  47.                 : toggle {
  48.                     label = "Extruded and flat SOLIDs";
  49.                     key   = "SOLID";
  50.                 }
  51.                 : toggle {
  52.                     label = "Extruded and flat CIRCLEs";
  53.                     key   = "CIRCLE";
  54.                 }
  55.                 : toggle {
  56.                     label = "Extruded faces of ARCs";
  57.                     key   = "ARC";
  58.                 }
  59.                 : toggle {
  60.                     label = "Extruded faces of LINEs";
  61.                     key   = "LINE";
  62.                 }
  63.                 : toggle {
  64.                     label = "Extruded faces of 2D-PLINEs";
  65.                     key   = "PLINE";
  66.                 }
  67.                 : toggle {
  68.                     label = "Constant width of 2D-PLINES";
  69.                     key   = "WPLINE";
  70.                 }
  71.                 : toggle {
  72.                     label = "Closed 2d-polys as POLYGONs";
  73.                     key   = "POLYGON";
  74.                 }
  75.                 : toggle {
  76.                     label = "Faces of 3D-MESHes";
  77.                     key   = "PMESH";
  78.                 }
  79.                 : toggle {
  80.                     label = "Faces if POLYFACEs";
  81.                     key   = "PFACE";
  82.                 }
  83.                 : toggle {
  84.                     label = "Points as SPHERES or BUBBLEs";
  85.                     key   = "POINT";
  86.                 }
  87.             }
  88.             : column {
  89.                 : boxed_column {
  90.                     label = "write filetypes:";
  91.                     : toggle {
  92.                         label = "Geometry information";
  93.                         key   = "files";
  94.                         value = "1";
  95.                     }
  96.                     : column {
  97.                         key = "auxf";
  98.                         : toggle {
  99.                             label = "Master-Control";
  100.                             key   = "master";
  101.                         }
  102.                         :row {
  103.                             spacer_1;
  104.                             :column {
  105.                                 key = "masterblock";
  106.                                 : edit_box {
  107.                                     label = "WCS Rot. from E to X:";
  108.                                     key   = "WCS rotation";
  109.                                     value = "0.0";
  110.                                     width = 2;
  111.                                 }
  112.                                 : toggle {
  113.                                     label = "Makefile";
  114.                                     key   = "make";
  115.                                 }
  116.                             }
  117.                         }
  118.                         : toggle {
  119.                             label = "Materials (all same)";
  120.                             key   = "mat";
  121.                         }
  122.                     }
  123.                     : row {
  124.                         : toggle {
  125.                             label = "View:";
  126.                             key   = "view";
  127.                             fixed_width = true;
  128.                         }
  129.                         : popup_list {
  130.                             key   = "viewlist";
  131.                             fixed_width = true;
  132.                             width = 12;
  133.                         }
  134.                         spacer_0;
  135.                     }
  136.                     : toggle {
  137.                         label = "Sun at position:";
  138.                         key   = "light";
  139.                     }
  140.                     : row {
  141.                         key = "sunvals";
  142.                         :column {
  143.                             :edit_box {
  144.                                 label = "Long.:";
  145.                                 key   = "Longitude";
  146.                                 value = "-8.5";
  147.                                 width = 3;
  148.                             }
  149.                             :edit_box {
  150.                                 label = "Lat.: ";
  151.                                 key   = "Latitude";
  152.                                 value = "47.5";
  153.                                 width = 3;
  154.                             }
  155.                             :edit_box {
  156.                                 label = "TZ.:  ";
  157.                                 key   = "TZ";
  158.                                 value = "-1";
  159.                                 width = 3;
  160.                             }
  161.                         }
  162.                         : column {
  163.                             : edit_box {
  164.                                 label = " Month:";
  165.                                 key   = "Month";
  166.                                 value = "08";
  167.                                 width = 3;
  168.                             }
  169.                             : edit_box {
  170.                                 label = " Day:  ";
  171.                                 key   = "Day";
  172.                                 value = "01";
  173.                                 width = 3;
  174.                             }
  175.                             : edit_box {
  176.                                 label = " Hour: ";
  177.                                 key   = "Hour";
  178.                                 value = "16.5";
  179.                                 width = 3;
  180.                             }
  181.                         }
  182.                     }
  183.                 }
  184.                 : boxed_column {
  185.                     label = "sampling modes:";
  186.                     key   = "modes";
  187.                     : text {
  188.                         label = "Sample entities by:";
  189.                     }
  190.                     : radio_row {
  191.                         key   = "sample";
  192.                         value = "Color";
  193.                         :radio_button {
  194.                             label = "Color ";
  195.                             key   = "Color";
  196.                         }
  197.                         :radio_button {
  198.                             label = "Layer ";
  199.                             key   = "Layer";
  200.                         }
  201.                         :radio_button {
  202.                             label = "Toplayer";
  203.                             key   = "Toplayer";
  204.                         }
  205.                     }
  206.                     spacer_0;
  207.                     : edit_box {
  208.                         label = "Seg./circle for arcs:";
  209.                         key   = "nsegs";
  210.                         value = "16";
  211.                         width = 2;
  212.                     }
  213.                 }
  214.             }
  215.         }
  216.         : row {
  217.             : edit_box {
  218.                 label = "Filename prefix:";
  219.                 key   = "prefix";
  220.             }
  221.             ok_cancel;
  222.         }
  223.     }
  224. }
  225.